home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / pcboard / pie_oru1.zip / PIE-UPLD.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-04-10  |  4KB  |  313 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.1O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.     String   STRING006
  25.     String   STRING007
  26.     String   STRING008
  27.     String   STRING009
  28.     String   STRING010
  29.     String   STRING011
  30.     String   STRING012
  31.     String   STRING013
  32.     String   STRING014
  33.     String   STRING015
  34.     String   STRING016
  35.     String   STRING017
  36.     String   STRING018
  37.     String   STRING019
  38.     String   STRING020
  39.     String   STRING021
  40.     String   STRING022
  41.     String   STRING023
  42.     String   STRING024
  43.     String   STRING025
  44.     String   STRING026
  45.     String   STRING027
  46.     String   STRING028
  47.     String   STRING029
  48.     String   STRING030
  49.     String   STRING031
  50.     String   STRING032
  51.     String   STRING033
  52.  
  53. ;------------------------------------------------------------------------------
  54.  
  55.     FOpen 1, PPEPath() + "COMMENT.USE", 0, 0
  56.     FGet 1, STRING001
  57.     FGet 1, STRING002
  58.     FGet 1, STRING003
  59.     FGet 1, STRING004
  60.     FGet 1, STRING005
  61.     FGet 1, STRING006
  62.     FGet 1, STRING007
  63.     FGet 1, STRING008
  64.     FClose 1
  65.     GetUser
  66.     FOpen 1, PPEPath() + "rules.cnf", 0, 0
  67.     FGet 1, STRING033
  68.     FGet 1, STRING026
  69.     FGet 1, STRING027
  70.     FGet 1, STRING028
  71.     FGet 1, STRING029
  72.     FGet 1, STRING030
  73.     FGet 1, STRING031
  74.     FGet 1, STRING032
  75.     FClose 1
  76.     Cls
  77.     DispFile PPEPath() + "UPLOAD.PCB", 1
  78.     AnsiPos 8, 13
  79.     Print STRING033, STRING026
  80.     AnsiPos 6, 14
  81.     Print STRING033, STRING027
  82.     AnsiPos 6, 15
  83.     Print STRING033, STRING028
  84.     AnsiPos 6, 16
  85.     Print STRING033, STRING029
  86.     AnsiPos 6, 17
  87.     Print STRING033, STRING030
  88.     AnsiPos 6, 18
  89.     Print STRING033, STRING031
  90.     AnsiPos 6, 19
  91.     Print STRING033, STRING032
  92.     AnsiPos 55, 13
  93.     Print "@X07", STRING001
  94.     AnsiPos 55, 14
  95.     Print "@X07", STRING002
  96.     AnsiPos 55, 15
  97.     Print "@X07", STRING003
  98.     AnsiPos 55, 16
  99.     Print "@X07", STRING004
  100.     AnsiPos 55, 17
  101.     Print "@X07", STRING005
  102.     AnsiPos 55, 18
  103.     Print "@X07", STRING006
  104.     AnsiPos 55, 19
  105.     Print "@X07", STRING007
  106.     AnsiPos 55, 12
  107.     Print "@X0B", STRING008, "@X08 Says!"
  108.     STRING018 = 1
  109.     STRING019 = "@X38"
  110.     STRING020 = "@X08"
  111.     STRING021 = "@X08"
  112.     STRING022 = "@X08"
  113.     :LABEL001
  114.     Backup 1000
  115.     AnsiPos 34, 12
  116.     Print STRING019, "    Upload    "
  117.     AnsiPos 34, 13
  118.     Print STRING020, "Select File(s)"
  119.     AnsiPos 34, 14
  120.     Print STRING021, "   Protocol   "
  121.     AnsiPos 34, 15
  122.     Print STRING022, "     Exit     "
  123.     :LABEL002
  124.     STRING017 = Inkey()
  125.     If (STRING017 == Chr(13)) Goto LABEL007
  126.     If (STRING017 == "DOWN") Goto LABEL004
  127.     If (STRING017 == "RIGHT") Goto LABEL004
  128.     If (STRING017 == Chr(27)) Goto LABEL008
  129.     If (STRING017 == " ") Goto LABEL005
  130.     If (STRING017 == "8") Goto LABEL003
  131.     If (STRING017 == "a") Goto LABEL003
  132.     If (STRING017 == "z") Goto LABEL004
  133.     If (STRING017 == "A") Goto LABEL003
  134.     If (STRING017 == "Z") Goto LABEL004
  135.     If (STRING017 == "2") Goto LABEL004
  136.     If (STRING017 == "UP") Goto LABEL003
  137.     If (STRING017 == "LEFT") Goto LABEL003
  138.     Goto LABEL002
  139.     :LABEL003
  140.     STRING018 = STRING018 - 1
  141.     If (STRING018 == 0) Then
  142.         STRING018 = 1
  143.     Endif
  144.     Goto LABEL006
  145.     :LABEL004
  146.     STRING019 = "@X08"
  147.     STRING020 = "@X08"
  148.     STRING021 = "@X08"
  149.     STRING022 = "@X08"
  150.     STRING018 = STRING018 + 1
  151.     Goto LABEL006
  152.     :LABEL005
  153.     STRING019 = "@X08"
  154.     STRING020 = "@X08"
  155.     STRING021 = "@X08"
  156.     STRING022 = "@X08"
  157.     STRING018 = STRING018 + 1
  158.     Select Case (STRING018)
  159.         Case 5
  160.             STRING018 = 1
  161.             :LABEL006
  162.             STRING019 = "@X08"
  163.             STRING020 = "@X08"
  164.             STRING021 = "@X08"
  165.             STRING022 = "@X08"
  166.         Case 5
  167.             STRING018 = 4
  168.     End Select
  169.     If (STRING018 == 1) Goto LABEL010
  170.     If (STRING018 == 2) Goto LABEL011
  171.     If (STRING018 == 3) Goto LABEL009
  172.     If (STRING018 == 4) Goto LABEL012
  173.     AnsiPos 34, 12
  174.     Print STRING019, "    Upload    "
  175.     AnsiPos 34, 13
  176.     Print STRING020, "Select File(s)"
  177.     AnsiPos 34, 14
  178.     Print STRING021, "   Protocol   "
  179.     AnsiPos 34, 15
  180.     Print STRING022, "     Exit     "
  181.     Goto LABEL001
  182.     :LABEL007
  183.     If (STRING018 == 1) Goto LABEL013
  184.     If (STRING018 == 2) Goto LABEL015
  185.     If (STRING018 == 3) Goto LABEL016
  186.     If (STRING018 == 4) Goto LABEL008
  187.     :LABEL008
  188.     Print "@X0F"
  189.     Cls
  190.     End
  191.     :LABEL009
  192.     STRING021 = "@X38"
  193.     Goto LABEL001
  194.     :LABEL010
  195.     STRING019 = "@X38"
  196.     Goto LABEL001
  197.     :LABEL011
  198.     STRING020 = "@X38"
  199.     Goto LABEL001
  200.     :LABEL012
  201.     STRING022 = "@X38"
  202.     Goto LABEL001
  203.     :LABEL013
  204.     Cls
  205.     Print "@X08 cOMMENT nEXT pUMPER? [Y/n]"
  206.     InputStr "_", STRING016, 7, 1, "YNyn", 64 + 1024
  207.     STRING016 = Upper(STRING016)
  208.     If (STRING016 == "") Goto LABEL017
  209.     If (STRING016 == "Y") Goto LABEL017
  210.     If (STRING016 == "N") Goto LABEL014
  211.     :LABEL014
  212.     Cls
  213.     Newline
  214.     STRING023 = Chr(13)
  215.     STRING025 = 1
  216.     STRING024 = "C00lFILE.NEW" + STRING023 + "i AM USiNG tHA DIZZ....." + STRING023 + STRING023
  217.     KbdStuff "UB " + STRING024 + STRING023 + STRING023
  218.     End
  219.     :LABEL015
  220.     Cls
  221.     KbdStuff "UB"
  222.     End
  223.     :LABEL016
  224.     Cls
  225.     KbdStuff "T"
  226.     End
  227.     :LABEL017
  228.     DispFile PPEPath() + "COMMENT.PCB", 1
  229.     AnsiPos 30, 13
  230.     InputText "_", STRING009, 7, 22
  231.     AnsiPos 30, 14
  232.     InputText "_", STRING010, 7, 22
  233.     AnsiPos 30, 15
  234.     InputText "_", STRING011, 7, 22
  235.     AnsiPos 30, 16
  236.     InputText "_", STRING012, 7, 22
  237.     AnsiPos 30, 17
  238.     InputText "_", STRING013, 7, 22
  239.     AnsiPos 30, 18
  240.     InputText "_", STRING014, 7, 22
  241.     AnsiPos 30, 19
  242.     InputText "_", STRING015, 7, 22
  243.     Delete PPEPath() + "COMMENT.USE"
  244.     FCreate 1, PPEPath() + "COMMENT.USE", 1, 0
  245.     FOpen 1, PPEPath() + "COMMENT.USE", 1, 0
  246.     FPutLn 1, STRING009
  247.     FPutLn 1, STRING010
  248.     FPutLn 1, STRING011
  249.     FPutLn 1, STRING012
  250.     FPutLn 1, STRING013
  251.     FPutLn 1, STRING014
  252.     FPutLn 1, STRING015
  253.     FPutLn 1, U_Name()
  254.     FClose 1
  255.     Goto LABEL014
  256.  
  257. ;------------------------------------------------------------------------------
  258. ;
  259. ; Usage report (before postprocessing)
  260. ;
  261. ; ■ Statements used :
  262. ;
  263. ;    4       End
  264. ;    6       Cls
  265. ;    37      Goto 
  266. ;    32      Let 
  267. ;    25      Print 
  268. ;    27      If 
  269. ;    2       DispFile 
  270. ;    1       FCreate 
  271. ;    3       FOpen 
  272. ;    3       FClose 
  273. ;    16      FGet 
  274. ;    8       FPutLn 
  275. ;    1       GetUser
  276. ;    1       Delete 
  277. ;    1       InputStr 
  278. ;    1       Newline
  279. ;    7       InputText 
  280. ;    3       KbdStuff 
  281. ;    30      AnsiPos 
  282. ;    1       Backup 
  283. ;
  284. ;
  285. ; ■ Functions used :
  286. ;
  287. ;    17      +
  288. ;    1       -
  289. ;    27      ==
  290. ;    3       !
  291. ;    1       Upper()
  292. ;    3       Chr()
  293. ;    1       U_Name()
  294. ;    1       Inkey()
  295. ;    7       PPEPath()
  296. ;
  297. ;------------------------------------------------------------------------------
  298. ;
  299. ; Analysis flags : No flag
  300. ;
  301. ;------------------------------------------------------------------------------
  302. ;
  303. ; Postprocessing report
  304. ;
  305. ;    0       For/Next
  306. ;    0       While/EndWhile
  307. ;    1       If/Then or If/Then/Else
  308. ;    1       Select Case
  309. ;
  310. ;------------------------------------------------------------------------------
  311. ;                 AEGiS Corp - Break the routines, code against the machines!
  312. ;------------------------------------------------------------------------------
  313.